<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"><head>

<meta charset="utf-8">
<meta name="generator" content="quarto-1.5.57">

<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">


<title>Replication guide for: Rental Market Risk and Radical Right Support</title>
<style>
code{white-space: pre-wrap;}
span.smallcaps{font-variant: small-caps;}
div.columns{display: flex; gap: min(4vw, 1.5em);}
div.column{flex: auto; overflow-x: auto;}
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
ul.task-list{list-style: none;}
ul.task-list li input[type="checkbox"] {
  width: 0.8em;
  margin: 0 0.8em 0.2em -1em; /* quarto-specific, see https://github.com/quarto-dev/quarto-cli/issues/4556 */ 
  vertical-align: middle;
}
</style>


<script src="readme_files/libs/clipboard/clipboard.min.js"></script>
<script src="readme_files/libs/quarto-html/quarto.js"></script>
<script src="readme_files/libs/quarto-html/popper.min.js"></script>
<script src="readme_files/libs/quarto-html/tippy.umd.min.js"></script>
<script src="readme_files/libs/quarto-html/anchor.min.js"></script>
<link href="readme_files/libs/quarto-html/tippy.css" rel="stylesheet">
<link href="readme_files/libs/quarto-html/quarto-syntax-highlighting.css" rel="stylesheet" id="quarto-text-highlighting-styles">
<script src="readme_files/libs/bootstrap/bootstrap.min.js"></script>
<link href="readme_files/libs/bootstrap/bootstrap-icons.css" rel="stylesheet">
<link href="readme_files/libs/bootstrap/bootstrap.min.css" rel="stylesheet" id="quarto-bootstrap" data-mode="light">


</head>

<body class="fullcontent">

<div id="quarto-content" class="page-columns page-rows-contents page-layout-article">

<main class="content" id="quarto-document-content">

<header id="title-block-header" class="quarto-title-block default">
<div class="quarto-title">
<h1 class="title">Replication guide for: Rental Market Risk and Radical Right Support</h1>
</div>



<div class="quarto-title-meta">

    <div>
    <div class="quarto-title-meta-heading">Authors</div>
    <div class="quarto-title-meta-contents">
             <p>Tarik Abou-Chadi </p>
             <p>Denis Cohen </p>
             <p>Thomas Kurer </p>
          </div>
  </div>
    
  
    
  </div>
  


</header>


<section id="data-availability-statement" class="level2">
<h2 class="anchored" data-anchor-id="data-availability-statement">Data availability statement</h2>
<p>Our analyses combine restricted-access geocoded data from the German Socio-Economic Panel (GSOEP), a high-quality annual household panel survey that has been in operation by the German Institute for Economic Research (DIW) since 1984, with proprietary data on postcode-level rental market statistics purchased from the German market research company F+B (now FUB IGES Wohnen+Immobilien+Umwelt GmbH).</p>
<p>To replicate our analyses, users must:</p>
<ol type="1">
<li>purchase the rental market data from F+B and</li>
<li>apply for an on-site visit at the GSEOP Research Data Center in Berlin (SOEP-FDZ).</li>
</ol>
<section id="fb-rental-market-data" class="level3">
<h3 class="anchored" data-anchor-id="fb-rental-market-data">F+B rental market data</h3>
<p>These proprietary rental market statistics cannot be shared with third parties. Therefore, users must obtain their own copies of the licensed data sets:</p>
<ol type="1">
<li><em>F+B Market Monitor:</em> Hedonic residential market rent at zip code level for all of Germany’s approx. 8,200 delivery zip codes</li>
<li><em>F+B Market Rent Monitor:</em> Residential market rent statistics at zip code level for all of Germany’s approx. 8,200 delivery zip codes</li>
</ol>
<p>Additional information, such as the lists of variables for each data set, can be requested from the authors.</p>
<p>The data provider can be contacted at:</p>
<blockquote class="blockquote">
<p>FUB IGES Wohnen+Immobilien+Umwelt GmbH</p>
<p>Adenauerallee 28</p>
<p>20097 Hamburg, Germany</p>
<p>https://fub.iges.com/</p>
</blockquote>
</section>
<section id="gsoep-data-with-geocodings" class="level3">
<h3 class="anchored" data-anchor-id="gsoep-data-with-geocodings">GSOEP data with geocodings</h3>
<p>The GSOEP data used in our manuscript has been augmented with small-area regional identifiers. Therefore, strict data protection laws apply. Most notably, the data is exclusively available for on-site use at the DIW Research Data Center in Berlin, Germany.</p>
<p>General information on using regional data in the GSOEP can be found here: <a href="https://www.diw.de/en/diw_01.c.683748.en/regional_data.html#c_683759">https://www.diw.de/en/diw_01.c.683748.en/regional_data.html#c_683759</a>.</p>
<p>Specific data protection measures for the use of geocoded GSOEP data can be found here: <a href="https://www.diw.de/documents/dokumentenarchiv/17/diw_01.c.44070.de/geocode_richtlinie.415762.pdf">https://www.diw.de/documents/dokumentenarchiv/17/diw_01.c.44070.de/geocode_richtlinie.415762.pdf</a></p>
<p>For further information, please contact:</p>
<blockquote class="blockquote">
<p>SOEP Community Management</p>
<p>Philipp Kaminsky and Antonia Meier</p>
<p>User support and contract management for the Research Data Center of the SOEP in the German Socio-Economic Panel Study Department</p>
<p>soepmail@diw.de</p>
</blockquote>
</section>
</section>
<section id="project-initialization" class="level2">
<h2 class="anchored" data-anchor-id="project-initialization">Project initialization</h2>
<p>Data management, analysis, and visualization was partly performed at the SOEP-FDZ (whenever access to the georeferenced data was required) and partly on a personal computer (for post-processing and visualizing exported estimates from the SOEP-FDZ).</p>
<p>The data project was initialized with identical directory hierarchies on both machines. As a result, users can replicate all our analyses at once by importing this replication package, along with the required external access-restricted data sets, at the SOEP-FDZ.</p>
<pre><code>├── 202410_rents_replication.Rproj
│../../soep-data/soep.v35/stata_de+en
├── dat
│   ├── auxiliary
│   ├── de_f_und_b
│   ├── plz-gebiete.shp
│   └── proc-data
├── est
├── fig
├── fun
├── logs
└── scripts</code></pre>
<p>The GSOEP data will be available in directory <code>../../soep-data/soep.v35/stata_de+en</code>. This assumes that the project folder is two levels down from the user’s personal folder, as indicated by <code>"../../"</code>. The F+B data comes comprises two XLSX files, <code>F+B-Marktmietenmonitor_PLZ_2004_2018.xlsx</code> and <code>Marktmonitor_20191111.xlsx</code>, which must be stored in the directory <code>dat/de_f_und_b</code>. Any processed data from these two sensitive data sets will be saved to the directory <code>dat/proc-data</code>.</p>
<p>Consequently, the following directories are <strong>not</strong> included in the replication materials:</p>
<ul>
<li><code>../../soep-data/soep.v35/stata_de+en</code>: SOEP data, including regional data in <code>regionl.dta</code> and <code>microm.dta</code></li>
<li><code>dat/de_f_und_b</code>: Proprietary rental market statistics from F+B</li>
<li><code>dat/proc-data</code>: Data processed from <code>[1]</code> and <code>[2]</code> (imputations etc.)</li>
</ul>
<p>The other directories are included:</p>
<ul>
<li><code>dat</code>
<ul>
<li><code>dat/auxiliary</code>: Auxiliary data files</li>
<li><code>dat/plz-gebiete.shp</code>: Shape file for German postcodes</li>
</ul></li>
<li><code>est</code>: Pre-processed estimates exported from the FDZ-SOEP</li>
<li><code>fig</code>: All figures contained in the main text and online appendix</li>
<li><code>fun</code>: Self-defined R functions</li>
<li><code>logs</code>: Log files that document the successful execution of all scripts</li>
<li><code>scripts</code>: Stata and R scripts</li>
</ul>
</section>
<section id="computation" class="level2">
<h2 class="anchored" data-anchor-id="computation">Computation</h2>
<p>All scripts are being sourced in <code>scripts/00-repl-master.R</code>. Therefore, running this scripts will sequentially run the following scripts:</p>
<ul>
<li><code>01-01-process-soep-data.do</code></li>
<li><code>01-02-process-soep-microm.do</code></li>
<li><code>01-03-process-f+b-data.R</code></li>
<li><code>02-01-imputation.R</code></li>
<li><code>02-02-post-processing.R</code></li>
<li><code>03-01-correlates-estimation.R</code></li>
<li><code>03-02-correlates-processing.R</code></li>
<li><code>03-03-vote-plots.R</code></li>
<li><code>03-04-subset-descriptives-estimation.R</code></li>
<li><code>03-05-subset-descriptives-processing.R</code></li>
<li><code>03-06-market-plots.R</code></li>
<li><code>03-07-eurostat-plots.R</code></li>
<li><code>03-08-perceptions-plot.R</code></li>
<li><code>04-01-main-analyses.R</code></li>
<li><code>04-02-main-analyses-processing.R</code></li>
<li><code>04-03-main-analyses-tables.R</code></li>
<li><code>05-01-aux-analyses-fe.R</code></li>
<li><code>05-02-aux-analyses-fe-processing.R</code></li>
<li><code>05-03-aux-analyses-infladj.R</code></li>
<li><code>05-04-aux-analyses-infladj-processing.R</code></li>
<li><code>05-05-aux-analyses-microm.R</code></li>
<li><code>05-06-aux-analyses-microm-processing.R</code></li>
<li><code>05-07-aux-mediation.R</code></li>
<li><code>05-08-aux-sensitivity.R</code></li>
<li><code>05-09-aux-mediation-plots.R</code></li>
</ul>
<p>The estimated computation time for all steps is approximately 12 hours.</p>
</section>
<section id="version-information" class="level2">
<h2 class="anchored" data-anchor-id="version-information">Version information</h2>
<p>Session information, including operating systems and package versions, are documented in <code>scripts/00-repl-master.R</code>.</p>
</section>

</main>
<!-- /main column -->
<script id="quarto-html-after-body" type="application/javascript">
window.document.addEventListener("DOMContentLoaded", function (event) {
  const toggleBodyColorMode = (bsSheetEl) => {
    const mode = bsSheetEl.getAttribute("data-mode");
    const bodyEl = window.document.querySelector("body");
    if (mode === "dark") {
      bodyEl.classList.add("quarto-dark");
      bodyEl.classList.remove("quarto-light");
    } else {
      bodyEl.classList.add("quarto-light");
      bodyEl.classList.remove("quarto-dark");
    }
  }
  const toggleBodyColorPrimary = () => {
    const bsSheetEl = window.document.querySelector("link#quarto-bootstrap");
    if (bsSheetEl) {
      toggleBodyColorMode(bsSheetEl);
    }
  }
  toggleBodyColorPrimary();  
  const icon = "";
  const anchorJS = new window.AnchorJS();
  anchorJS.options = {
    placement: 'right',
    icon: icon
  };
  anchorJS.add('.anchored');
  const isCodeAnnotation = (el) => {
    for (const clz of el.classList) {
      if (clz.startsWith('code-annotation-')) {                     
        return true;
      }
    }
    return false;
  }
  const onCopySuccess = function(e) {
    // button target
    const button = e.trigger;
    // don't keep focus
    button.blur();
    // flash "checked"
    button.classList.add('code-copy-button-checked');
    var currentTitle = button.getAttribute("title");
    button.setAttribute("title", "Copied!");
    let tooltip;
    if (window.bootstrap) {
      button.setAttribute("data-bs-toggle", "tooltip");
      button.setAttribute("data-bs-placement", "left");
      button.setAttribute("data-bs-title", "Copied!");
      tooltip = new bootstrap.Tooltip(button, 
        { trigger: "manual", 
          customClass: "code-copy-button-tooltip",
          offset: [0, -8]});
      tooltip.show();    
    }
    setTimeout(function() {
      if (tooltip) {
        tooltip.hide();
        button.removeAttribute("data-bs-title");
        button.removeAttribute("data-bs-toggle");
        button.removeAttribute("data-bs-placement");
      }
      button.setAttribute("title", currentTitle);
      button.classList.remove('code-copy-button-checked');
    }, 1000);
    // clear code selection
    e.clearSelection();
  }
  const getTextToCopy = function(trigger) {
      const codeEl = trigger.previousElementSibling.cloneNode(true);
      for (const childEl of codeEl.children) {
        if (isCodeAnnotation(childEl)) {
          childEl.remove();
        }
      }
      return codeEl.innerText;
  }
  const clipboard = new window.ClipboardJS('.code-copy-button:not([data-in-quarto-modal])', {
    text: getTextToCopy
  });
  clipboard.on('success', onCopySuccess);
  if (window.document.getElementById('quarto-embedded-source-code-modal')) {
    // For code content inside modals, clipBoardJS needs to be initialized with a container option
    // TODO: Check when it could be a function (https://github.com/zenorocha/clipboard.js/issues/860)
    const clipboardModal = new window.ClipboardJS('.code-copy-button[data-in-quarto-modal]', {
      text: getTextToCopy,
      container: window.document.getElementById('quarto-embedded-source-code-modal')
    });
    clipboardModal.on('success', onCopySuccess);
  }
    var localhostRegex = new RegExp(/^(?:http|https):\/\/localhost\:?[0-9]*\//);
    var mailtoRegex = new RegExp(/^mailto:/);
      var filterRegex = new RegExp('/' + window.location.host + '/');
    var isInternal = (href) => {
        return filterRegex.test(href) || localhostRegex.test(href) || mailtoRegex.test(href);
    }
    // Inspect non-navigation links and adorn them if external
 	var links = window.document.querySelectorAll('a[href]:not(.nav-link):not(.navbar-brand):not(.toc-action):not(.sidebar-link):not(.sidebar-item-toggle):not(.pagination-link):not(.no-external):not([aria-hidden]):not(.dropdown-item):not(.quarto-navigation-tool):not(.about-link)');
    for (var i=0; i<links.length; i++) {
      const link = links[i];
      if (!isInternal(link.href)) {
        // undo the damage that might have been done by quarto-nav.js in the case of
        // links that we want to consider external
        if (link.dataset.originalHref !== undefined) {
          link.href = link.dataset.originalHref;
        }
      }
    }
  function tippyHover(el, contentFn, onTriggerFn, onUntriggerFn) {
    const config = {
      allowHTML: true,
      maxWidth: 500,
      delay: 100,
      arrow: false,
      appendTo: function(el) {
          return el.parentElement;
      },
      interactive: true,
      interactiveBorder: 10,
      theme: 'quarto',
      placement: 'bottom-start',
    };
    if (contentFn) {
      config.content = contentFn;
    }
    if (onTriggerFn) {
      config.onTrigger = onTriggerFn;
    }
    if (onUntriggerFn) {
      config.onUntrigger = onUntriggerFn;
    }
    window.tippy(el, config); 
  }
  const noterefs = window.document.querySelectorAll('a[role="doc-noteref"]');
  for (var i=0; i<noterefs.length; i++) {
    const ref = noterefs[i];
    tippyHover(ref, function() {
      // use id or data attribute instead here
      let href = ref.getAttribute('data-footnote-href') || ref.getAttribute('href');
      try { href = new URL(href).hash; } catch {}
      const id = href.replace(/^#\/?/, "");
      const note = window.document.getElementById(id);
      if (note) {
        return note.innerHTML;
      } else {
        return "";
      }
    });
  }
  const xrefs = window.document.querySelectorAll('a.quarto-xref');
  const processXRef = (id, note) => {
    // Strip column container classes
    const stripColumnClz = (el) => {
      el.classList.remove("page-full", "page-columns");
      if (el.children) {
        for (const child of el.children) {
          stripColumnClz(child);
        }
      }
    }
    stripColumnClz(note)
    if (id === null || id.startsWith('sec-')) {
      // Special case sections, only their first couple elements
      const container = document.createElement("div");
      if (note.children && note.children.length > 2) {
        container.appendChild(note.children[0].cloneNode(true));
        for (let i = 1; i < note.children.length; i++) {
          const child = note.children[i];
          if (child.tagName === "P" && child.innerText === "") {
            continue;
          } else {
            container.appendChild(child.cloneNode(true));
            break;
          }
        }
        if (window.Quarto?.typesetMath) {
          window.Quarto.typesetMath(container);
        }
        return container.innerHTML
      } else {
        if (window.Quarto?.typesetMath) {
          window.Quarto.typesetMath(note);
        }
        return note.innerHTML;
      }
    } else {
      // Remove any anchor links if they are present
      const anchorLink = note.querySelector('a.anchorjs-link');
      if (anchorLink) {
        anchorLink.remove();
      }
      if (window.Quarto?.typesetMath) {
        window.Quarto.typesetMath(note);
      }
      // TODO in 1.5, we should make sure this works without a callout special case
      if (note.classList.contains("callout")) {
        return note.outerHTML;
      } else {
        return note.innerHTML;
      }
    }
  }
  for (var i=0; i<xrefs.length; i++) {
    const xref = xrefs[i];
    tippyHover(xref, undefined, function(instance) {
      instance.disable();
      let url = xref.getAttribute('href');
      let hash = undefined; 
      if (url.startsWith('#')) {
        hash = url;
      } else {
        try { hash = new URL(url).hash; } catch {}
      }
      if (hash) {
        const id = hash.replace(/^#\/?/, "");
        const note = window.document.getElementById(id);
        if (note !== null) {
          try {
            const html = processXRef(id, note.cloneNode(true));
            instance.setContent(html);
          } finally {
            instance.enable();
            instance.show();
          }
        } else {
          // See if we can fetch this
          fetch(url.split('#')[0])
          .then(res => res.text())
          .then(html => {
            const parser = new DOMParser();
            const htmlDoc = parser.parseFromString(html, "text/html");
            const note = htmlDoc.getElementById(id);
            if (note !== null) {
              const html = processXRef(id, note);
              instance.setContent(html);
            } 
          }).finally(() => {
            instance.enable();
            instance.show();
          });
        }
      } else {
        // See if we can fetch a full url (with no hash to target)
        // This is a special case and we should probably do some content thinning / targeting
        fetch(url)
        .then(res => res.text())
        .then(html => {
          const parser = new DOMParser();
          const htmlDoc = parser.parseFromString(html, "text/html");
          const note = htmlDoc.querySelector('main.content');
          if (note !== null) {
            // This should only happen for chapter cross references
            // (since there is no id in the URL)
            // remove the first header
            if (note.children.length > 0 && note.children[0].tagName === "HEADER") {
              note.children[0].remove();
            }
            const html = processXRef(null, note);
            instance.setContent(html);
          } 
        }).finally(() => {
          instance.enable();
          instance.show();
        });
      }
    }, function(instance) {
    });
  }
      let selectedAnnoteEl;
      const selectorForAnnotation = ( cell, annotation) => {
        let cellAttr = 'data-code-cell="' + cell + '"';
        let lineAttr = 'data-code-annotation="' +  annotation + '"';
        const selector = 'span[' + cellAttr + '][' + lineAttr + ']';
        return selector;
      }
      const selectCodeLines = (annoteEl) => {
        const doc = window.document;
        const targetCell = annoteEl.getAttribute("data-target-cell");
        const targetAnnotation = annoteEl.getAttribute("data-target-annotation");
        const annoteSpan = window.document.querySelector(selectorForAnnotation(targetCell, targetAnnotation));
        const lines = annoteSpan.getAttribute("data-code-lines").split(",");
        const lineIds = lines.map((line) => {
          return targetCell + "-" + line;
        })
        let top = null;
        let height = null;
        let parent = null;
        if (lineIds.length > 0) {
            //compute the position of the single el (top and bottom and make a div)
            const el = window.document.getElementById(lineIds[0]);
            top = el.offsetTop;
            height = el.offsetHeight;
            parent = el.parentElement.parentElement;
          if (lineIds.length > 1) {
            const lastEl = window.document.getElementById(lineIds[lineIds.length - 1]);
            const bottom = lastEl.offsetTop + lastEl.offsetHeight;
            height = bottom - top;
          }
          if (top !== null && height !== null && parent !== null) {
            // cook up a div (if necessary) and position it 
            let div = window.document.getElementById("code-annotation-line-highlight");
            if (div === null) {
              div = window.document.createElement("div");
              div.setAttribute("id", "code-annotation-line-highlight");
              div.style.position = 'absolute';
              parent.appendChild(div);
            }
            div.style.top = top - 2 + "px";
            div.style.height = height + 4 + "px";
            div.style.left = 0;
            let gutterDiv = window.document.getElementById("code-annotation-line-highlight-gutter");
            if (gutterDiv === null) {
              gutterDiv = window.document.createElement("div");
              gutterDiv.setAttribute("id", "code-annotation-line-highlight-gutter");
              gutterDiv.style.position = 'absolute';
              const codeCell = window.document.getElementById(targetCell);
              const gutter = codeCell.querySelector('.code-annotation-gutter');
              gutter.appendChild(gutterDiv);
            }
            gutterDiv.style.top = top - 2 + "px";
            gutterDiv.style.height = height + 4 + "px";
          }
          selectedAnnoteEl = annoteEl;
        }
      };
      const unselectCodeLines = () => {
        const elementsIds = ["code-annotation-line-highlight", "code-annotation-line-highlight-gutter"];
        elementsIds.forEach((elId) => {
          const div = window.document.getElementById(elId);
          if (div) {
            div.remove();
          }
        });
        selectedAnnoteEl = undefined;
      };
        // Handle positioning of the toggle
    window.addEventListener(
      "resize",
      throttle(() => {
        elRect = undefined;
        if (selectedAnnoteEl) {
          selectCodeLines(selectedAnnoteEl);
        }
      }, 10)
    );
    function throttle(fn, ms) {
    let throttle = false;
    let timer;
      return (...args) => {
        if(!throttle) { // first call gets through
            fn.apply(this, args);
            throttle = true;
        } else { // all the others get throttled
            if(timer) clearTimeout(timer); // cancel #2
            timer = setTimeout(() => {
              fn.apply(this, args);
              timer = throttle = false;
            }, ms);
        }
      };
    }
      // Attach click handler to the DT
      const annoteDls = window.document.querySelectorAll('dt[data-target-cell]');
      for (const annoteDlNode of annoteDls) {
        annoteDlNode.addEventListener('click', (event) => {
          const clickedEl = event.target;
          if (clickedEl !== selectedAnnoteEl) {
            unselectCodeLines();
            const activeEl = window.document.querySelector('dt[data-target-cell].code-annotation-active');
            if (activeEl) {
              activeEl.classList.remove('code-annotation-active');
            }
            selectCodeLines(clickedEl);
            clickedEl.classList.add('code-annotation-active');
          } else {
            // Unselect the line
            unselectCodeLines();
            clickedEl.classList.remove('code-annotation-active');
          }
        });
      }
  const findCites = (el) => {
    const parentEl = el.parentElement;
    if (parentEl) {
      const cites = parentEl.dataset.cites;
      if (cites) {
        return {
          el,
          cites: cites.split(' ')
        };
      } else {
        return findCites(el.parentElement)
      }
    } else {
      return undefined;
    }
  };
  var bibliorefs = window.document.querySelectorAll('a[role="doc-biblioref"]');
  for (var i=0; i<bibliorefs.length; i++) {
    const ref = bibliorefs[i];
    const citeInfo = findCites(ref);
    if (citeInfo) {
      tippyHover(citeInfo.el, function() {
        var popup = window.document.createElement('div');
        citeInfo.cites.forEach(function(cite) {
          var citeDiv = window.document.createElement('div');
          citeDiv.classList.add('hanging-indent');
          citeDiv.classList.add('csl-entry');
          var biblioDiv = window.document.getElementById('ref-' + cite);
          if (biblioDiv) {
            citeDiv.innerHTML = biblioDiv.innerHTML;
          }
          popup.appendChild(citeDiv);
        });
        return popup.innerHTML;
      });
    }
  }
});
</script>
</div> <!-- /content -->




</body></html>